home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1995 / 3 / 06b / mathscript / mathscript.ampk / MathScript / Rexx / MV_Preview.ms < prev    next >
Encoding:
Text File  |  1995-06-01  |  1.2 KB  |  38 lines
  1. /* This is a script for previewing formulas with Multiview 
  2. It saves the current formula as a temporary PS-file, which
  3. is then showed by Multiview
  4.  
  5. *** ATTENTION: This Script needs Multiview and thus OS 3.0 ***
  6.  
  7. For showing PostScript-files by Multiview, the post.datatype, which is
  8. available as PD, MUST be installed !!! */
  9.  
  10. ADDRESS "MathScript"
  11.  
  12. options results
  13.  
  14. GetPrefs INCLUDE_PS_FONT      /* The current post.datatype does not support an */
  15.                               /* initiation file like init.ps to change the findfont */
  16. ps=result                     /* routine so that it looks in PSFonts: for fonts. */
  17.                               /* So we have to include the font description in our */
  18. SetPrefs INCLUDE_PS_FONT YES  /* postscript file */
  19.  
  20.  
  21. GetPrefs PS_FONTSIZE          /* Change the font's size for better visability */
  22.  
  23. size=result
  24.  
  25. SetPrefs PS_FONTSIZE 30
  26.  
  27.  
  28. Export EPS "T:preview.ps" FORCE 
  29. /* saves the current formula as a temporary PS-file */
  30.  
  31. SetPrefs INCLUDE_PS_FONT ps PS_FONTSIZE size  /* Undo our Prefs change */
  32.  
  33. ADDRESS COMMAND "Multiview T:preview.ps screen"
  34. /* start Multiview */
  35.  
  36. ADDRESS COMMAND "delete >NIL: T:preview.ps#?"
  37. /* delete file */
  38.